step(al,is,tm(zk,[ctxm(eta_,u,ip,ip_al_2,ip_al_2),ctxm(eta_,idp2,ip,ip_is,ip_is)],pri(zk,[ctxm(eta_,u,kM,kM_al,kM_al),pri(pk,[ctxm(eta_,u,kM,kM_al,kM_al)]),ctxm(eta_,dot,n_z_a,ss(eta_,in_z_a),ss(eta_,cn_z_a)),ctxm(eta_,dot,n_z_b,ss(eta_,in_z_b),ss(eta_,cn_z_b))]))).
